home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / CirclusMaximus™ / card_9055.txt < prev    next >
Text File  |  1991-03-02  |  2KB  |  90 lines
  1. -- card: 9055 from stack: in
  2. -- bmap block id: 11278
  3. -- flags: 4000
  4. -- background id: 7338
  5. -- name: Segment of a Sphere
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Surface Area of Segment
  11.   get (2*pi*card field "Radius")*card field "Height"
  12.   put it into card field "Surface Area of Segment"
  13.  
  14.   --Calculate Segment Volume
  15.   get ((1/3)*pi*card field "Height"^2)*(3*card field "Radius" -card field "Height")
  16.   put it into card field "Segment Volume"
  17. end mouseUp
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 00
  22. -- high flags: 0002
  23. -- rect: left=312 top=96 right=114 bottom=459
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 3
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Radius
  32.  
  33.  
  34. -- part 2 (field)
  35. -- low flags: 00
  36. -- high flags: 0002
  37. -- rect: left=312 top=119 right=137 bottom=459
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 3
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Height
  46.  
  47.  
  48. -- part 3 (field)
  49. -- low flags: 01
  50. -- high flags: 0004
  51. -- rect: left=319 top=175 right=194 bottom=448
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Surface Area of Segment
  60.  
  61.  
  62. -- part 4 (field)
  63. -- low flags: 01
  64. -- high flags: 0004
  65. -- rect: left=319 top=213 right=232 bottom=448
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Segment Volume
  74.  
  75.  
  76. -- part contents for card part 3
  77. ----- text -----
  78. 0.785398
  79.  
  80. -- part contents for card part 4
  81. ----- text -----
  82. 0.081812
  83.  
  84. -- part contents for card part 1
  85. ----- text -----
  86. .500000
  87.  
  88. -- part contents for card part 2
  89. ----- text -----
  90. .250000